home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / asxsrc.arc / M00PST.C < prev    next >
C/C++ Source or Header  |  1989-08-25  |  6KB  |  190 lines
  1. /* m00pst.c */
  2.  
  3. /*
  4.  * (C) Copyright 1989
  5.  * All Rights Reserved
  6.  *
  7.  * Alan R. Baldwin
  8.  * 721 Berkeley St.
  9.  * Kent, Ohio  44240
  10.  */
  11.  
  12. #include <stdio.h>
  13. #include <setjmp.h>
  14. #include "asm.h"
  15. #include "6800.h"
  16.  
  17. struct    mne    mne[] = {
  18.  
  19.     /* machine */
  20.  
  21.     NULL,    ".setdp",    S_SDP,        0,    0,
  22.  
  23.     /* system */
  24.  
  25.     NULL,    "CON",        S_ATYP,        0,    A_CON,
  26.     NULL,    "OVR",        S_ATYP,        0,    A_OVR,
  27.     NULL,    "REL",        S_ATYP,        0,    A_REL,
  28.     NULL,    "ABS",        S_ATYP,        0,    A_ABS|A_OVR,
  29.  
  30.     NULL,    ".byte",    S_BYTE,        0,    0,
  31.     NULL,    ".db",        S_BYTE,        0,    0,
  32.     NULL,    ".word",    S_WORD,        0,    0,
  33.     NULL,    ".dw",        S_WORD,        0,    0,
  34.     NULL,    ".ascii",    S_ASCII,    0,    0,
  35.     NULL,    ".asciz",    S_ASCIZ,    0,    0,
  36.     NULL,    ".blkb",    S_BLK,        0,    1,
  37.     NULL,    ".ds",        S_BLK,        0,    1,
  38.     NULL,    ".blkw",    S_BLK,        0,    2,
  39.     NULL,    ".page",    S_PAGE,        0,    0,
  40.     NULL,    ".title",    S_TITLE,    0,    0,
  41.     NULL,    ".sbttl",    S_SBTL,        0,    0,
  42.     NULL,    ".globl",    S_GLOBL,    0,    0,
  43.     NULL,    ".area",    S_DAREA,    0,    0,
  44.     NULL,    ".even",    S_EVEN,        0,    0,
  45.     NULL,    ".odd",        S_ODD,        0,    0,
  46.     NULL,    ".if",        S_IF,        0,    0,
  47.     NULL,    ".else",    S_ELSE,        0,    0,
  48.     NULL,    ".endif",    S_ENDIF,    0,    0,
  49.     NULL,    ".include",    S_INCL,        0,    0,
  50.     NULL,    ".radix",    S_RADIX,    0,    0,
  51.     NULL,    ".org",        S_ORG,        0,    0,
  52.     NULL,    ".module",    S_MODUL,    0,    0,
  53.  
  54.     /* 6800/6802/6808 */
  55.  
  56.     NULL,    "bra",        S_BRA,        0,    0x20,
  57.     NULL,    "bhi",        S_BRA,        0,    0x22,
  58.     NULL,    "bls",        S_BRA,        0,    0x23,
  59.     NULL,    "bcc",        S_BRA,        0,    0x24,
  60.     NULL,    "bhs",        S_BRA,        0,    0x24,
  61.     NULL,    "bcs",        S_BRA,        0,    0x25,
  62.     NULL,    "blo",        S_BRA,        0,    0x25,
  63.     NULL,    "bne",        S_BRA,        0,    0x26,
  64.     NULL,    "beq",        S_BRA,        0,    0x27,
  65.     NULL,    "bvc",        S_BRA,        0,    0x28,
  66.     NULL,    "bvs",        S_BRA,        0,    0x29,
  67.     NULL,    "bpl",        S_BRA,        0,    0x2A,
  68.     NULL,    "bmi",        S_BRA,        0,    0x2B,
  69.     NULL,    "bge",        S_BRA,        0,    0x2C,
  70.     NULL,    "blt",        S_BRA,        0,    0x2D,
  71.     NULL,    "bgt",        S_BRA,        0,    0x2E,
  72.     NULL,    "ble",        S_BRA,        0,    0x2F,
  73.     NULL,    "bsr",        S_BRA,        0,    0x8D,
  74.  
  75.     NULL,    "neg",        S_TYP1,        0,    0x40,
  76.     NULL,    "com",        S_TYP1,        0,    0x43,
  77.     NULL,    "lsr",        S_TYP1,        0,    0x44,
  78.     NULL,    "ror",        S_TYP1,        0,    0x46,
  79.     NULL,    "asr",        S_TYP1,        0,    0x47,
  80.     NULL,    "asl",        S_TYP1,        0,    0x48,
  81.     NULL,    "lsl",        S_TYP1,        0,    0x48,
  82.     NULL,    "rol",        S_TYP1,        0,    0x49,
  83.     NULL,    "dec",        S_TYP1,        0,    0x4A,
  84.     NULL,    "inc",        S_TYP1,        0,    0x4C,
  85.     NULL,    "tst",        S_TYP1,        0,    0x4D,
  86.     NULL,    "clr",        S_TYP1,        0,    0x4F,
  87.  
  88.     NULL,    "sub",        S_TYP2,        0,    0x80,
  89.     NULL,    "cmp",        S_TYP2,        0,    0x81,
  90.     NULL,    "sbc",        S_TYP2,        0,    0x82,
  91.     NULL,    "and",        S_TYP2,        0,    0x84,
  92.     NULL,    "bit",        S_TYP2,        0,    0x85,
  93.     NULL,    "lda",        S_TYP2,        0,    0x86,
  94.     NULL,    "sta",        S_TYP2,        0,    0x87,
  95.     NULL,    "eor",        S_TYP2,        0,    0x88,
  96.     NULL,    "adc",        S_TYP2,        0,    0x89,
  97.     NULL,    "ora",        S_TYP2,        0,    0x8A,
  98.     NULL,    "add",        S_TYP2,        0,    0x8B,
  99.  
  100.     NULL,    "suba",        S_TYP3,        0,    0x80,
  101.     NULL,    "subb",        S_TYP3,        0,    0xC0,
  102.     NULL,    "cmpa",        S_TYP3,        0,    0x81,
  103.     NULL,    "cmpb",        S_TYP3,        0,    0xC1,
  104.     NULL,    "sbca",        S_TYP3,        0,    0x82,
  105.     NULL,    "sbcb",        S_TYP3,        0,    0xC2,
  106.     NULL,    "anda",        S_TYP3,        0,    0x84,
  107.     NULL,    "andb",        S_TYP3,        0,    0xC4,
  108.     NULL,    "bita",        S_TYP3,        0,    0x85,
  109.     NULL,    "bitb",        S_TYP3,        0,    0xC5,
  110.     NULL,    "ldaa",        S_TYP3,        0,    0x86,
  111.     NULL,    "ldab",        S_TYP3,        0,    0xC6,
  112.     NULL,    "staa",        S_TYP3,        0,    0x87,
  113.     NULL,    "stab",        S_TYP3,        0,    0xC7,
  114.     NULL,    "eora",        S_TYP3,        0,    0x88,
  115.     NULL,    "eorb",        S_TYP3,        0,    0xC8,
  116.     NULL,    "adca",        S_TYP3,        0,    0x89,
  117.     NULL,    "adcb",        S_TYP3,        0,    0xC9,
  118.     NULL,    "oraa",        S_TYP3,        0,    0x8A,
  119.     NULL,    "orab",        S_TYP3,        0,    0xCA,
  120.     NULL,    "adda",        S_TYP3,        0,    0x8B,
  121.     NULL,    "addb",        S_TYP3,        0,    0xCB,
  122.  
  123.     NULL,    "cpx",        S_TYP4,        0,    0x8C,
  124.     NULL,    "cmpx",        S_TYP4,        0,    0x8C,
  125.     NULL,    "lds",        S_TYP4,        0,    0x8E,
  126.     NULL,    "ldx",        S_TYP4,        0,    0xCE,
  127.     NULL,    "sts",        S_TYP4,        0,    0x8F,
  128.     NULL,    "stx",        S_TYP4,        0,    0xCF,
  129.  
  130.     NULL,    "jmp",        S_TYP5,        0,    0x6E,
  131.     NULL,    "jsr",        S_TYP5,        0,    0xAD,
  132.  
  133.     NULL,    "aba",        S_INH,        0,    0x1B,
  134.     NULL,    "asla",        S_INH,        0,    0x48,
  135.     NULL,    "aslb",        S_INH,        0,    0x58,
  136.     NULL,    "lsla",        S_INH,        0,    0x48,
  137.     NULL,    "lslb",        S_INH,        0,    0x58,
  138.     NULL,    "asra",        S_INH,        0,    0x47,
  139.     NULL,    "asrb",        S_INH,        0,    0x57,
  140.     NULL,    "cba",        S_INH,        0,    0x11,
  141.     NULL,    "clc",        S_INH,        0,    0x0C,
  142.     NULL,    "cli",        S_INH,        0,    0x0E,
  143.     NULL,    "clra",        S_INH,        0,    0x4F,
  144.     NULL,    "clrb",        S_INH,        0,    0x5F,
  145.     NULL,    "clv",        S_INH,        0,    0x0A,
  146.     NULL,    "coma",        S_INH,        0,    0x43,
  147.     NULL,    "comb",        S_INH,        0,    0x53,
  148.     NULL,    "daa",        S_INH,        0,    0x19,
  149.     NULL,    "deca",        S_INH,        0,    0x4A,
  150.     NULL,    "decb",        S_INH,        0,    0x5A,
  151.     NULL,    "des",        S_INH,        0,    0x34,
  152.     NULL,    "dex",        S_INH,        0,    0x09,
  153.     NULL,    "inca",        S_INH,        0,    0x4C,
  154.     NULL,    "incb",        S_INH,        0,    0x5C,
  155.     NULL,    "ins",        S_INH,        0,    0x31,
  156.     NULL,    "inx",        S_INH,        0,    0x08,
  157.     NULL,    "lsra",        S_INH,        0,    0x44,
  158.     NULL,    "lsrb",        S_INH,        0,    0x54,
  159.     NULL,    "nega",        S_INH,        0,    0x40,
  160.     NULL,    "negb",        S_INH,        0,    0x50,
  161.     NULL,    "nop",        S_INH,        0,    0x01,
  162.     NULL,    "psha",        S_INH,        0,    0x36,
  163.     NULL,    "pshb",        S_INH,        0,    0x37,
  164.     NULL,    "pula",        S_INH,        0,    0x32,
  165.     NULL,    "pulb",        S_INH,        0,    0x33,
  166.     NULL,    "rola",        S_INH,        0,    0x49,
  167.     NULL,    "rolb",        S_INH,        0,    0x59,
  168.     NULL,    "rora",        S_INH,        0,    0x46,
  169.     NULL,    "rorb",        S_INH,        0,    0x56,
  170.     NULL,    "rti",        S_INH,        0,    0x3B,
  171.     NULL,    "rts",        S_INH,        0,    0x39,
  172.     NULL,    "sba",        S_INH,        0,    0x10,
  173.     NULL,    "sec",        S_INH,        0,    0x0D,
  174.     NULL,    "sei",        S_INH,        0,    0x0F,
  175.     NULL,    "sev",        S_INH,        0,    0x0B,
  176.     NULL,    "swi",        S_INH,        0,    0x3F,
  177.     NULL,    "tab",        S_INH,        0,    0x16,
  178.     NULL,    "tap",        S_INH,        0,    0x06,
  179.     NULL,    "tba",        S_INH,        0,    0x17,
  180.     NULL,    "tpa",        S_INH,        0,    0x07,
  181.     NULL,    "tsta",        S_INH,        0,    0x4D,
  182.     NULL,    "tstb",        S_INH,        0,    0x5D,
  183.     NULL,    "tsx",        S_INH,        0,    0x30,
  184.     NULL,    "txs",        S_INH,        0,    0x35,
  185.     NULL,    "wai",        S_INH,        0,    0x3E,
  186.  
  187.     NULL,    "pul",        S_PUL,        0,    0x32,
  188.     NULL,    "psh",        S_PUL,        S_END,    0x36,
  189. };
  190.